home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 10, No. 05 (1989-05)(MicroSPARC)(Side A).zip
/
Nibble Volume 10, No. 05 (1989-05)(MicroSPARC)(Side A).po
/
ROUNDIT.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
448b
|
2 lines
10 X$ = STR$( INT(X *100 +.5)/100):L = LEN(X$):M = LEN( STR$( INT(X))):X$ = CHR$(48 *(M$ = "0")) +X$ + CHR$(48 *(L -M = 1)) + CHR$(46 *(L -M = 0)) + CHR$(48 *(L -M = 0)) + CHR$(48 *(L -M = 0 OR L -M = 2 AND X = >.99)):X$ = X$ + CHR$(0): FOR I = 1 TO LEN(X$): ON MID$ (X$,I,1) = CHR$(0) GOTO 20:Y$ = Y$ + MID$ (X$,I,1)
20 NEXT :X$ = Y$:Y$ = "":X$ = RIGHT$(" " +X$,12): RETURN : REM ROUNDIT ROUNDS/FORMATS INPUT<X> OUTPUT <XX.00>